home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util1 / vmmstat.lha / VMMStat / RCS / interface.c next >
C/C++ Source or Header  |  1995-07-25  |  10KB  |  369 lines
  1. head    1.1;
  2. access;
  3. symbols;
  4. locks; strict;
  5. comment    @ * @;
  6.  
  7.  
  8. 1.1
  9. date    95.07.25.11.30.27;    author enderle;    state Exp;
  10. branches;
  11. next    ;
  12.  
  13.  
  14. desc
  15. @MUI interface generated by MUIBuilder
  16. @
  17.  
  18.  
  19. 1.1
  20. log
  21. @Initial revision
  22. @
  23. text
  24. @#ifndef MAKE_ID
  25. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  26. #endif
  27.  
  28. #ifdef _DCC
  29. #define __inline
  30. #endif
  31.  
  32. #include "interface.h"
  33. #include "VMMStatStrings_cat.h"
  34.  
  35. extern char* GetString(int);
  36.  
  37. char *GetMBString(int ref)
  38. {
  39.     char *aux;
  40.  
  41.     aux = GetString(ref);
  42.     if (aux[1] == '\0') return(&aux[2]);
  43.     else                return(aux);
  44. }
  45.  
  46. struct ObjApp * CreateApp(void)
  47. {
  48.     struct ObjApp * Object;
  49.  
  50.     APTR    GR_MAIN_GROUP, GR_MAIN_STATISTIC, GR_MAIN_LABELS, GR_MAIN_INFO, GR_MAIN_CONTROL;
  51.  
  52.     if (!(Object = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
  53.         return(NULL);
  54.  
  55.     Object->STR_TX_MAIN_FREEVIRT = GetMBString(MSG_TX_MAIN_FREEVIRT);
  56.     Object->STR_TX_MAIN_FREEFAST = GetMBString(MSG_TX_MAIN_FREEFAST);
  57.     Object->STR_TX_MAIN_SPACE_0 = NULL;
  58.     Object->STR_TX_MAIN_FAULTS = GetMBString(MSG_TX_MAIN_FAULTS);
  59.     Object->STR_TX_MAIN_PAGESWRITTEN = GetMBString(MSG_TX_MAIN_PAGESWRITTEN);
  60.     Object->STR_TX_MAIN_PAGESREAD = GetMBString(MSG_TX_MAIN_PAGESREAD);
  61.     Object->STR_TX_MAIN_NUMFRAMES = GetMBString(MSG_TX_MAIN_NUMFRAMES);
  62.     Object->STR_TX_MAIN_PAGESUSED = GetMBString(MSG_TX_MAIN_PAGESUSED);
  63.     Object->STR_TX_MAIN_SPACE_1 = NULL;
  64.     Object->STR_TX_MAIN_TRAPSTRUCTSFREE = GetMBString(MSG_TX_MAIN_TRAPSTRUCTSFREE);
  65.     Object->STR_TX_MAIN_PAGESIZE = GetMBString(MSG_TX_MAIN_PAGESIZE);
  66.     Object->STR_TX_MAIN_INFO_FREEVIRT = NULL;
  67.     Object->STR_TX_MAIN_INFO_FREEFAST = NULL;
  68.     Object->STR_TX_MAIN_SPACE_2 = NULL;
  69.     Object->STR_TX_MAIN_INFO_FAULTS = NULL;
  70.     Object->STR_TX_MAIN_INFO_PAGESWRITTEN = NULL;
  71.     Object->STR_TX_MAIN_INFO_PAGESREAD = NULL;
  72.     Object->STR_TX_MAIN_INFO_NUMFRAMES = NULL;
  73.     Object->STR_TX_MAIN_INFO_PAGESUSED = NULL;
  74.     Object->STR_TX_MAIN_SPACE_3 = NULL;
  75.     Object->STR_TX_MAIN_INFO_TRAPSTRUCTSFREE = NULL;
  76.     Object->STR_TX_MAIN_INFO_PAGESIZE = NULL;
  77.  
  78.     Object->TX_MAIN_FREEVIRT = TextObject,
  79.         MUIA_FramePhantomHoriz, TRUE,
  80.         MUIA_Background, MUII_WindowBack,
  81.         MUIA_Frame, MUIV_Frame_Text,
  82.         MUIA_Text_Contents, Object->STR_TX_MAIN_FREEVIRT,
  83.         MUIA_Text_SetMin, TRUE,
  84.     End;
  85.  
  86.     Object->TX_MAIN_FREEFAST = TextObject,
  87.         MUIA_FramePhantomHoriz, TRUE,
  88.         MUIA_Background, MUII_WindowBack,
  89.         MUIA_Frame, MUIV_Frame_Text,
  90.         MUIA_Text_Contents, Object->STR_TX_MAIN_FREEFAST,
  91.         MUIA_Text_SetMin, TRUE,
  92.     End;
  93.  
  94.     Object->TX_MAIN_SPACE_0 = TextObject,
  95.         MUIA_Weight, 5,
  96.         MUIA_Background, MUII_WindowBack,
  97.         MUIA_Text_Contents, Object->STR_TX_MAIN_SPACE_0,
  98.         MUIA_Text_SetMin, TRUE,
  99.     End;
  100.  
  101.     Object->TX_MAIN_FAULTS = TextObject,
  102.         MUIA_FramePhantomHoriz, TRUE,
  103.         MUIA_Background, MUII_WindowBack,
  104.         MUIA_Frame, MUIV_Frame_Text,
  105.         MUIA_Text_Contents, Object->STR_TX_MAIN_FAULTS,
  106.         MUIA_Text_SetMin, TRUE,
  107.     End;
  108.  
  109.     Object->TX_MAIN_PAGESWRITTEN = TextObject,
  110.         MUIA_FramePhantomHoriz, TRUE,
  111.         MUIA_Background, MUII_WindowBack,
  112.         MUIA_Frame, MUIV_Frame_Text,
  113.         MUIA_Text_Contents, Object->STR_TX_MAIN_PAGESWRITTEN,
  114.         MUIA_Text_SetMin, TRUE,
  115.     End;
  116.  
  117.     Object->TX_MAIN_PAGESREAD = TextObject,
  118.         MUIA_FramePhantomHoriz, TRUE,
  119.         MUIA_Background, MUII_WindowBack,
  120.         MUIA_Frame, MUIV_Frame_Text,
  121.         MUIA_Text_Contents, Object->STR_TX_MAIN_PAGESREAD,
  122.         MUIA_Text_SetMin, TRUE,
  123.     End;
  124.  
  125.     Object->TX_MAIN_NUMFRAMES = TextObject,
  126.         MUIA_FramePhantomHoriz, TRUE,
  127.         MUIA_Background, MUII_WindowBack,
  128.         MUIA_Frame, MUIV_Frame_Text,
  129.         MUIA_Text_Contents, Object->STR_TX_MAIN_NUMFRAMES,
  130.         MUIA_Text_SetMin, TRUE,
  131.     End;
  132.  
  133.     Object->TX_MAIN_PAGESUSED = TextObject,
  134.         MUIA_FramePhantomHoriz, TRUE,
  135.         MUIA_Background, MUII_WindowBack,
  136.         MUIA_Frame, MUIV_Frame_Text,
  137.         MUIA_Text_Contents, Object->STR_TX_MAIN_PAGESUSED,
  138.         MUIA_Text_SetMin, TRUE,
  139.     End;
  140.  
  141.     Object->TX_MAIN_SPACE_1 = TextObject,
  142.         MUIA_Weight, 5,
  143.         MUIA_Background, MUII_WindowBack,
  144.         MUIA_Text_Contents, Object->STR_TX_MAIN_SPACE_1,
  145.         MUIA_Text_SetMin, TRUE,
  146.     End;
  147.  
  148.     Object->TX_MAIN_TRAPSTRUCTSFREE = TextObject,
  149.         MUIA_FramePhantomHoriz, TRUE,
  150.         MUIA_Weight, 5,
  151.         MUIA_Background, MUII_WindowBack,
  152.         MUIA_Frame, MUIV_Frame_Text,
  153.         MUIA_Text_Contents, Object->STR_TX_MAIN_TRAPSTRUCTSFREE,
  154.         MUIA_Text_SetMin, TRUE,
  155.     End;
  156.  
  157.     Object->TX_MAIN_PAGESIZE = TextObject,
  158.         MUIA_FramePhantomHoriz, TRUE,
  159.         MUIA_Weight, 5,
  160.         MUIA_Background, MUII_WindowBack,
  161.         MUIA_Frame, MUIV_Frame_Text,
  162.         MUIA_Text_Contents, Object->STR_TX_MAIN_PAGESIZE,
  163.         MUIA_Text_SetMin, TRUE,
  164.     End;
  165.  
  166.     GR_MAIN_LABELS = GroupObject,
  167.         MUIA_HelpNode, "GR_MAIN_LABELS",
  168.         MUIA_Weight, 5,
  169.         MUIA_Group_SameSize, TRUE,
  170.         Child, Object->TX_MAIN_FREEVIRT,
  171.         Child, Object->TX_MAIN_FREEFAST,
  172.         Child, Object->TX_MAIN_SPACE_0,
  173.         Child, Object->TX_MAIN_FAULTS,
  174.         Child, Object->TX_MAIN_PAGESWRITTEN,
  175.         Child, Object->TX_MAIN_PAGESREAD,
  176.         Child, Object->TX_MAIN_NUMFRAMES,
  177.         Child, Object->TX_MAIN_PAGESUSED,
  178.         Child, Object->TX_MAIN_SPACE_1,
  179.         Child, Object->TX_MAIN_TRAPSTRUCTSFREE,
  180.         Child, Object->TX_MAIN_PAGESIZE,
  181.     End;
  182.  
  183.     Object->TX_MAIN_INFO_FREEVIRT = TextObject,
  184.         MUIA_Background, MUII_TextBack,
  185.         MUIA_Frame, MUIV_Frame_Text,
  186.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_FREEVIRT,
  187.         MUIA_Text_PreParse, "\033r",
  188.         MUIA_Text_SetMin, TRUE,
  189.     End;
  190.  
  191.     Object->TX_MAIN_INFO_FREEFAST = TextObject,
  192.         MUIA_Background, MUII_TextBack,
  193.         MUIA_Frame, MUIV_Frame_Text,
  194.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_FREEFAST,
  195.         MUIA_Text_PreParse, "\033r",
  196.         MUIA_Text_SetMin, TRUE,
  197.     End;
  198.  
  199.     Object->TX_MAIN_SPACE_2 = TextObject,
  200.         MUIA_Weight, 5,
  201.         MUIA_Background, MUII_WindowBack,
  202.         MUIA_Text_Contents, Object->STR_TX_MAIN_SPACE_2,
  203.         MUIA_Text_SetMin, TRUE,
  204.     End;
  205.  
  206.     Object->TX_MAIN_INFO_FAULTS = TextObject,
  207.         MUIA_Background, MUII_TextBack,
  208.         MUIA_Frame, MUIV_Frame_Text,
  209.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_FAULTS,
  210.         MUIA_Text_PreParse, "\033r",
  211.         MUIA_Text_SetMin, TRUE,
  212.     End;
  213.  
  214.     Object->TX_MAIN_INFO_PAGESWRITTEN = TextObject,
  215.         MUIA_Background, MUII_TextBack,
  216.         MUIA_Frame, MUIV_Frame_Text,
  217.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_PAGESWRITTEN,
  218.         MUIA_Text_PreParse, "\033r",
  219.         MUIA_Text_SetMin, TRUE,
  220.     End;
  221.  
  222.     Object->TX_MAIN_INFO_PAGESREAD = TextObject,
  223.         MUIA_Background, MUII_TextBack,
  224.         MUIA_Frame, MUIV_Frame_Text,
  225.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_PAGESREAD,
  226.         MUIA_Text_PreParse, "\033r",
  227.         MUIA_Text_SetMin, TRUE,
  228.     End;
  229.  
  230.     Object->TX_MAIN_INFO_NUMFRAMES = TextObject,
  231.         MUIA_Background, MUII_TextBack,
  232.         MUIA_Frame, MUIV_Frame_Text,
  233.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_NUMFRAMES,
  234.         MUIA_Text_PreParse, "\033r",
  235.         MUIA_Text_SetMin, TRUE,
  236.     End;
  237.  
  238.     Object->TX_MAIN_INFO_PAGESUSED = TextObject,
  239.         MUIA_Background, MUII_TextBack,
  240.         MUIA_Frame, MUIV_Frame_Text,
  241.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_PAGESUSED,
  242.         MUIA_Text_PreParse, "\033r",
  243.         MUIA_Text_SetMin, TRUE,
  244.     End;
  245.  
  246.     Object->TX_MAIN_SPACE_3 = TextObject,
  247.         MUIA_Background, MUII_WindowBack,
  248.         MUIA_Text_Contents, Object->STR_TX_MAIN_SPACE_3,
  249.         MUIA_Text_SetMin, TRUE,
  250.     End;
  251.  
  252.     Object->TX_MAIN_INFO_TRAPSTRUCTSFREE = TextObject,
  253.         MUIA_Background, MUII_TextBack,
  254.         MUIA_Frame, MUIV_Frame_Text,
  255.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_TRAPSTRUCTSFREE,
  256.         MUIA_Text_PreParse, "\033r",
  257.         MUIA_Text_SetMin, TRUE,
  258.     End;
  259.  
  260.     Object->TX_MAIN_INFO_PAGESIZE = TextObject,
  261.         MUIA_Background, MUII_TextBack,
  262.         MUIA_Frame, MUIV_Frame_Text,
  263.         MUIA_Text_Contents, Object->STR_TX_MAIN_INFO_PAGESIZE,
  264.         MUIA_Text_PreParse, "\033r",
  265.         MUIA_Text_SetMin, TRUE,
  266.     End;
  267.  
  268.     GR_MAIN_INFO = GroupObject,
  269.         MUIA_HelpNode, "GR_MAIN_INFO",
  270.         MUIA_Group_SameSize, TRUE,
  271.         Child, Object->TX_MAIN_INFO_FREEVIRT,
  272.         Child, Object->TX_MAIN_INFO_FREEFAST,
  273.         Child, Object->TX_MAIN_SPACE_2,
  274.         Child, Object->TX_MAIN_INFO_FAULTS,
  275.         Child, Object->TX_MAIN_INFO_PAGESWRITTEN,
  276.         Child, Object->TX_MAIN_INFO_PAGESREAD,
  277.         Child, Object->TX_MAIN_INFO_NUMFRAMES,
  278.         Child, Object->TX_MAIN_INFO_PAGESUSED,
  279.         Child, Object->TX_MAIN_SPACE_3,
  280.         Child, Object->TX_MAIN_INFO_TRAPSTRUCTSFREE,
  281.         Child, Object->TX_MAIN_INFO_PAGESIZE,
  282.     End;
  283.  
  284.     GR_MAIN_STATISTIC = GroupObject,
  285.         MUIA_HelpNode, "GR_MAIN_STATISTIC",
  286.         MUIA_Frame, MUIV_Frame_Group,
  287.         MUIA_FrameTitle, GetMBString(MSG_GR_MAIN_STATISTICTitle),
  288.         MUIA_Group_Columns, 2,
  289.         Child, GR_MAIN_LABELS,
  290.         Child, GR_MAIN_INFO,
  291.     End;
  292.  
  293.     Object->BT_MAIN_ABOUT = SimpleButton(GetMBString(MSG_BT_MAIN_ABOUT));
  294.  
  295.     Object->BT_MAIN_QUIT = SimpleButton(GetMBString(MSG_BT_MAIN_QUIT));
  296.  
  297.     GR_MAIN_CONTROL = GroupObject,
  298.         MUIA_HelpNode, "GR_MAIN_CONTROL",
  299.         MUIA_Group_Horiz, TRUE,
  300.         Child, Object->BT_MAIN_ABOUT,
  301.         Child, Object->BT_MAIN_QUIT,
  302.     End;
  303.  
  304.     GR_MAIN_GROUP = GroupObject,
  305.         Child, GR_MAIN_STATISTIC,
  306.         Child, GR_MAIN_CONTROL,
  307.     End;
  308.  
  309.     Object->WI_MAIN = WindowObject,
  310.         MUIA_Window_Title, GetMBString(MSG_WI_MAIN),
  311.         MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
  312.         WindowContents, GR_MAIN_GROUP,
  313.     End;
  314.  
  315.     Object->App = ApplicationObject,
  316.         MUIA_Application_Author, "Frank Enderle",
  317.         MUIA_Application_Base, "VMMStat",
  318.         MUIA_Application_Title, "VMMStat",
  319.         MUIA_Application_Version, "$VER: VMMStat 38.10 (23.07.95)",
  320.         MUIA_Application_Copyright, GetMBString(MSG_AppCopyright),
  321.         MUIA_Application_Description, GetMBString(MSG_AppDescription),
  322.         SubWindow, Object->WI_MAIN,
  323.     End;
  324.  
  325.  
  326.     if (!Object->App)
  327.     {
  328.         FreeVec(Object);
  329.         return(NULL);
  330.     }
  331.  
  332.     DoMethod(Object->WI_MAIN,
  333.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  334.         Object->App,
  335.         2,
  336.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  337.         );
  338.  
  339.     DoMethod(Object->BT_MAIN_ABOUT,
  340.         MUIM_Notify, MUIA_Pressed, FALSE,
  341.         Object->App,
  342.         2,
  343.         MUIM_Application_ReturnID, ID_BT_MAIN_ABOUT
  344.         );
  345.  
  346.     DoMethod(Object->BT_MAIN_QUIT,
  347.         MUIM_Notify, MUIA_Pressed, FALSE,
  348.         Object->App,
  349.         2,
  350.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  351.         );
  352.  
  353.     DoMethod(Object->WI_MAIN,
  354.         MUIM_Window_SetCycleChain, Object->BT_MAIN_ABOUT,
  355.         Object->BT_MAIN_QUIT,
  356.         0
  357.         );
  358.  
  359.  
  360.     return(Object);
  361. }
  362.  
  363. void DisposeApp(struct ObjApp * Object)
  364. {
  365.     MUI_DisposeObject(Object->App);
  366.     FreeVec(Object);
  367. }
  368. @
  369.